home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
lib232.zip
/
INETPASS.SLT
< prev
next >
Wrap
Text File
|
1990-10-14
|
4KB
|
145 lines
/////////////////////////////// RUNME1ST.SLT /////////////////////////////////
//
// DESCRIPTION: This script will create the iNet Password file needed for
// proper operation of INET-ON.SLT. This password file will be created in
// your Telix Script directory (defined with the Telix <Alt-O> command, under
// 'Filenames and Paths'), and will be named INETPASS.WRD.
//
// CREDITS: This script is modelled after a script originally created by
// Robert Wolfe.
//
// INSTRUCTIONS: Compile the script by typing 'CS RUNME1ST' from DOS. This
// will produce a file call RUNME1ST.SLC, which should be copied into your
// Telix Script directory if necessary. Then execute the file from Telix by
// typing <Alt-G>RUNME1ST. (<Alt-G> signifies holding the Alt key and typing
// a G).
//
// The script INET-ON.SLT that accompanys this file must be modified with your
// text editor or word processor (in ASCII, or DOS Text file mode) before
// compiling. Simply load the INET-ON.SLT file into your text editor, and
// follow the instructions inside.
//
//////////////////////////////////////////////////////////////////////////////
main()
{
int c,
f,
i,
x = 4,
y,
digit,
spchar;
str s[80],
password_file[64];
if (!_script_dir)
{
prints("No Script Directory defined. Please define and save the directory where your");
prints("Telix scripts are locates with the Telix <Alt-O> command, and retry.");
return(0);
}
else
{
fnstrip(_script_dir, 0, s);
strupper(s);
c = strlen(s);
if (subchr(s, c - 1) != '\')
copystr("\", s, c, 1); // add slash if necessary
_script_dir = s;
}
password_file = _script_dir; // Telix script directory");
strcat(password_file, "INETPASS.WRD");
if (filefind(password_file))
{
clear_scr();
printsc("^GAn iNet password file already exists. Replace it <y/n>? ");
gets(s, 1);
c = tolower(subchr(s, 0));
if (c != 'y')
{
prints("^M^JScript aborted.");
return(0);
}
}
f = fopen(password_file, "w");
if (!f)
{
prints("Error creating password file. Aborting...");
return(0);
}
fputs("003", f); // set pointer to start of passwords
clear_scr();
prints("Please enter 12 iNet passwords in the following format:^M^J");
prints("1) Each password must be 6 to 8 characters long.");
prints("2) The first character must be alphabetic or numeric.");
prints("3) At least one character must be numeric.");
prints("4) At least one character must be special, !, ?, %, *, etc.");
pstraxy(" Please enter your CURRENT iNet password. ",0,10,112);
while (x < 80)
{
digit = spchar = 0;
pstraxy("╒═╤═╤═╦══╕", x, y+12, 2);
pstraxy("│ │", x, y+13, 2);
pstraxy("╘═╧═╧═╩══╛", x, y+14, 2);
if (getsxy(s, 8, x+1, y+13, 2) == -1) // Esc key hit?
{
fclose(f);
s = "DEL ";
strcat(s, password_file);
dos(s, 2); // Delete password file (incomplete)
clear_scr();
prints("Script aborted. INETPASS.WRD not created.");
return(0);
}
c = subchr(s, 0);
if (!isalnum(c))
continue;
if (strlen(s) < 6)
continue;
for (i = 0; i <= strlen(s); ++i)
{
c = subchr(s,i);
if (isdigit(c))
digit = 1; // numeric found
if (!iscntrl(c) && !isalnum(c))
spchar = 1; // special found
}
if (!digit || !spchar)
continue;
fputs(s, f);
fputs("^J", f); // line feed as delimeter
pstraxy(" Please enter your next password in the box. ",0,10,112);
y = y + 4;
if (y > 9)
{
y = 0;
x = x + 20;
}
}
fclose(f);
clear_scr();
printsc(_script_dir);
prints("INETPASS.WRD created. Script complete.");
prints("^M^JPlease refer to the instructions in the INET-ON.SLT file for the next step.");
return(1);
}
//////////////////////////////// End of file /////////////////////////////////